﻿Public Class getRoom
    Inherits System.Web.UI.Page
    Dim hotelPxy As New edu.temple.cis_iis2.HotelService
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            gvHotel.DataSource = hotelPxy.getHotel
            gvHotel.DataBind()
        End If
    End Sub

    Protected Sub btngetRoom_Click(sender As Object, e As EventArgs) Handles btngetRoom.Click

        Dim id As Integer = CInt(txtHotelID.Text)
        Dim ds As New DataSet
        ds = hotelPxy.getRooml(id)
        gvRoom.DataSource = ds
        gvRoom.DataBind()

    End Sub
End Class